home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
zmd6112b.zip
/
ZMD6.INT
< prev
next >
Wrap
Text File
|
1992-07-05
|
2KB
|
71 lines
{$A+,B-,D-,E+,F-,G-,I+,L-,N-,O-,R-,S-,V-,X+}
{$M 8192,49152,49152}
UNIT ZMD6;
INTERFACE
CONST
ZMDVersion = '1.12ß';
TYPE
ZFilesRec = record
Name : string;
Status : word;
end;
Z_FileList = array[1..20] of ZFilesRec;
VAR
Z_DiskBufSize : word;
{
Z_DiskBufSize sets the size of the buffer that files are
read into before transfer. The buffer is allocated from
the heap when the transfer begins and released afterwards.
}
Z_Files : ^Z_FileList;
{
This is a pointer to the Z_FileList structure that ZMD6
uses to send/receive files.
}
Z_SRPort,Z_SRBaud : word;
{
Z_SRPort is the port used to transfer the files.
Z_SRBaud is the baud rate that Z_SRPort is operating at.
}
Z_ReceivePath : string;
{
Z_ReceivePath is the path to the directory that you wish to
have received files written to.
}
CurFNum : word;
{
CurFNum is the number of files that were received as a
result of the last Z_GetFiles procedure
}
procedure Z_SendFiles(Num : word);
{
This is the procedure used to send one or more files
using the Zmodem protocol. The files to be sent are specified
in the Z_Files^ array which is allocated from the heap at
unit initialization. After the files have been transfered
the Z_Files^[].Status word will contain a numeric value
representing the status of the transfer for the respective
file.
}
procedure Z_GetFiles;
{
This is the procedure used to receive one or more files
using the Zmodem protocol. The files that are received will
have their names stored in the Z_Files^ array which is allocated
from the heap at unit initilization. After all files have
been received the Z_Files^[].Status will contain a numeric
value representing the status of the transfer for the respective
file.
}
IMPLEMENTATION